home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / LOCLMODS.M < prev    next >
Encoding:
Text File  |  1990-09-26  |  371 b   |  30 lines
  1.  
  2. MODULE LocModule;
  3.  
  4.   MODULE M1;
  5.   EXPORT cmd;
  6.     MODULE m2;
  7.     EXPORT cmd;
  8.     TYPE cmd = (NOP, GoUp, GoDown);
  9.     END m2;
  10.   END M1;
  11.  
  12.   MODULE M3;
  13.   IMPORT cmd;
  14.     MODULE M4;
  15.     IMPORT cmd;
  16.     VAR cc: cmd;
  17.     BEGIN
  18.       cc:=NOP;
  19.     END M4;
  20.   VAR cc: cmd;
  21.   BEGIN
  22.     cc:=NOP;
  23.   END M3;
  24.  
  25. VAR cc: cmd;
  26.  
  27. BEGIN
  28.   cc:=NOP;
  29. END LocModule.
  30.